﻿Public Class frm_buquedaProducto

    Private Sub cmd_buscar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmd_buscar.Click
        If IsNumeric(txt_id.Text) Then
            frm_prod.buscarPorId(txt_id.Text)
        Else
            MessageBox.Show("Ingrese un ID válido", "Aviso", MessageBoxButtons.OK, MessageBoxIcon.Stop)
            txt_id.Text = ""
            txt_id.Focus()
        End If
        Me.Close()
    End Sub

    Private Sub cmd_cancelar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmd_cancelar.Click
        Me.Close()
    End Sub


    Private Sub frm_buquedaProducto_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        txt_id.Text = ""
        txt_id.Focus()
    End Sub
End Class